program exDynarray;
var
  a : array of array of integer;
    (* a 2 dimensional array *)
  i, j : integer;

begin
  setlength(a, 5, 5);

  for i:=0 to 4
    for j:=0 to 4 do
      a[i, j] := i * j;
  setlength(a, 6, 6)
  for i:=0 to 5 do

begin
for j:= 0 to 5 do
write(a[i, j] : 2, ' ');
writeln;
end;
end.
